home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / lib / perl / 5.10.0 / endian.ph < prev    next >
Encoding:
Text File  |  2009-10-01  |  4.1 KB  |  137 lines
  1. require '_h2ph_pre.ph';
  2.  
  3. no warnings qw(redefine misc);
  4.  
  5. unless(defined(&_ENDIAN_H)) {
  6.     eval 'sub _ENDIAN_H () {1;}' unless defined(&_ENDIAN_H);
  7.     require 'features.ph';
  8.     eval 'sub __LITTLE_ENDIAN () {1234;}' unless defined(&__LITTLE_ENDIAN);
  9.     eval 'sub __BIG_ENDIAN () {4321;}' unless defined(&__BIG_ENDIAN);
  10.     eval 'sub __PDP_ENDIAN () {3412;}' unless defined(&__PDP_ENDIAN);
  11.     require 'bits/endian.ph';
  12.     unless(defined(&__FLOAT_WORD_ORDER)) {
  13.     eval 'sub __FLOAT_WORD_ORDER () { &__BYTE_ORDER;}' unless defined(&__FLOAT_WORD_ORDER);
  14.     }
  15.     if(defined(&__USE_BSD)) {
  16.     eval 'sub LITTLE_ENDIAN () { &__LITTLE_ENDIAN;}' unless defined(&LITTLE_ENDIAN);
  17.     eval 'sub BIG_ENDIAN () { &__BIG_ENDIAN;}' unless defined(&BIG_ENDIAN);
  18.     eval 'sub PDP_ENDIAN () { &__PDP_ENDIAN;}' unless defined(&PDP_ENDIAN);
  19.     eval 'sub BYTE_ORDER () { &__BYTE_ORDER;}' unless defined(&BYTE_ORDER);
  20.     }
  21.     if((defined(&__BYTE_ORDER) ? &__BYTE_ORDER : undef) == (defined(&__LITTLE_ENDIAN) ? &__LITTLE_ENDIAN : undef)) {
  22.     eval 'sub __LONG_LONG_PAIR {
  23.         my($HI, $LO) = @_;
  24.             eval q($LO, $HI);
  25.     }' unless defined(&__LONG_LONG_PAIR);
  26.     }
  27.  elsif((defined(&__BYTE_ORDER) ? &__BYTE_ORDER : undef) == (defined(&__BIG_ENDIAN) ? &__BIG_ENDIAN : undef)) {
  28.     eval 'sub __LONG_LONG_PAIR {
  29.         my($HI, $LO) = @_;
  30.             eval q($HI, $LO);
  31.     }' unless defined(&__LONG_LONG_PAIR);
  32.     }
  33.     if(defined(&__USE_BSD)) {
  34.     require 'bits/byteswap.ph';
  35.     if((defined(&__BYTE_ORDER) ? &__BYTE_ORDER : undef) == (defined(&__LITTLE_ENDIAN) ? &__LITTLE_ENDIAN : undef)) {
  36.         eval 'sub htobe16 {
  37.             my($x) = @_;
  38.             eval q( &__bswap_16 ($x));
  39.         }' unless defined(&htobe16);
  40.         eval 'sub htole16 {
  41.             my($x) = @_;
  42.             eval q(($x));
  43.         }' unless defined(&htole16);
  44.         eval 'sub be16toh {
  45.             my($x) = @_;
  46.             eval q( &__bswap_16 ($x));
  47.         }' unless defined(&be16toh);
  48.         eval 'sub le16toh {
  49.             my($x) = @_;
  50.             eval q(($x));
  51.         }' unless defined(&le16toh);
  52.         eval 'sub htobe32 {
  53.             my($x) = @_;
  54.             eval q( &__bswap_32 ($x));
  55.         }' unless defined(&htobe32);
  56.         eval 'sub htole32 {
  57.             my($x) = @_;
  58.             eval q(($x));
  59.         }' unless defined(&htole32);
  60.         eval 'sub be32toh {
  61.             my($x) = @_;
  62.             eval q( &__bswap_32 ($x));
  63.         }' unless defined(&be32toh);
  64.         eval 'sub le32toh {
  65.             my($x) = @_;
  66.             eval q(($x));
  67.         }' unless defined(&le32toh);
  68.         eval 'sub htobe64 {
  69.             my($x) = @_;
  70.             eval q( &__bswap_64 ($x));
  71.         }' unless defined(&htobe64);
  72.         eval 'sub htole64 {
  73.             my($x) = @_;
  74.             eval q(($x));
  75.         }' unless defined(&htole64);
  76.         eval 'sub be64toh {
  77.             my($x) = @_;
  78.             eval q( &__bswap_64 ($x));
  79.         }' unless defined(&be64toh);
  80.         eval 'sub le64toh {
  81.             my($x) = @_;
  82.             eval q(($x));
  83.         }' unless defined(&le64toh);
  84.     } else {
  85.         eval 'sub htobe16 {
  86.             my($x) = @_;
  87.             eval q(($x));
  88.         }' unless defined(&htobe16);
  89.         eval 'sub htole16 {
  90.             my($x) = @_;
  91.             eval q( &__bswap_16 ($x));
  92.         }' unless defined(&htole16);
  93.         eval 'sub be16toh {
  94.             my($x) = @_;
  95.             eval q(($x));
  96.         }' unless defined(&be16toh);
  97.         eval 'sub le16toh {
  98.             my($x) = @_;
  99.             eval q( &__bswap_16 ($x));
  100.         }' unless defined(&le16toh);
  101.         eval 'sub htobe32 {
  102.             my($x) = @_;
  103.             eval q(($x));
  104.         }' unless defined(&htobe32);
  105.         eval 'sub htole32 {
  106.             my($x) = @_;
  107.             eval q( &__bswap_32 ($x));
  108.         }' unless defined(&htole32);
  109.         eval 'sub be32toh {
  110.             my($x) = @_;
  111.             eval q(($x));
  112.         }' unless defined(&be32toh);
  113.         eval 'sub le32toh {
  114.             my($x) = @_;
  115.             eval q( &__bswap_32 ($x));
  116.         }' unless defined(&le32toh);
  117.         eval 'sub htobe64 {
  118.             my($x) = @_;
  119.             eval q(($x));
  120.         }' unless defined(&htobe64);
  121.         eval 'sub htole64 {
  122.             my($x) = @_;
  123.             eval q( &__bswap_64 ($x));
  124.         }' unless defined(&htole64);
  125.         eval 'sub be64toh {
  126.             my($x) = @_;
  127.             eval q(($x));
  128.         }' unless defined(&be64toh);
  129.         eval 'sub le64toh {
  130.             my($x) = @_;
  131.             eval q( &__bswap_64 ($x));
  132.         }' unless defined(&le64toh);
  133.     }
  134.     }
  135. }
  136. 1;
  137.